home *** CD-ROM | disk | FTP | other *** search
/ C64'er / C64'er.iso / 85xx / 8512.d64 / straight select (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  143b  |  8 lines
  1. 10040 TI$="000000":G=A-1:FORX=A-1TO1STEP-1
  2. 10050 F=0:FORY=1TOG
  3. 10060 IFA$(Y)<=A$(Y+1)THEN10080
  4. 10070 F=Y:SYS49152(A$(Y),A$(Y+1))
  5. 10080 NEXTY
  6. 10090 G=F:IFF=0THEN50000
  7. 10100 NEXTX
  8.